home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
shared.dir
/
03103_Script_XOBJS OPEN-CLOSE
< prev
next >
Wrap
Text File
|
1996-06-21
|
726b
|
27 lines
-- --------------------------------------------------------
-- Handler openXObjHandler opens the given xobj in the xobject
-- folder.
on openXObjHandler whichXobj
if the machinetype = 256 then
set xobjPath = the pathName & "XObjs\" -- PC
else
set xobjPath = the pathName & "XObjs:" -- Mac
end if
openXlib xobjPath & whichXobj
end
-- --------------------------------------------------------
-- Handler closeXObjHandler closes the given xobj in the xobject
-- folder.
on closeXObjHandler whichXobj
if the machinetype = 256 then
set xobjPath = the pathName & "XObjs\" -- PC
else
set xobjPath = the pathName & "XObjs:" -- Mac
end if
closeXlib xobjPath & whichXobj
end